home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
game
/
map_quiz
/
a_world.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
21KB
|
460 lines
1000 ' ******************************************************************
1010 ' * *
1020 ' * :::::::::::: A_WORLD.BAS :::::::::::::: *
1030 ' * Programmed By T.K.Mosaku *
1040 ' * ~~~~~~~~~~~~~~~~~~~~~~~~ *
1050 ' ******************************************************************
1060 '
1070 '** 画面表示 **
1080 MENU=1
1090 LOAD@"D_WMAP.TIF", (0,0):CLS 4
1100 LOAD@"F_SWICH.TIF", (7,7)
1110 LOAD@"F_SWICH3.TIF",(87,7)
1120 '
1130 *MENU_GAMEN
1140 CLS 4:SIR=0
1150 GOSUB *BOTTN
1160 LOCATE 4, 21:COLOR 1:PRINT"世界の国名クイズ・・・・・何問に挑戦しますか。"
1170 LOCATE 25,22:COLOR 2:PRINT" 5問 10問 20問 30問 40問"
1180 LOCATE 48,23:COLOR 1:PRINT"左クリックして選んで下さい。"
1190 '
1200 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
1210 '
1220 '** MENU 選択 **
1230 *MENU_CHOIS
1240 IKISAKI=1
1250 X=MOUSE(4,0):Y=MOUSE(5,0)
1260 IF X>93 AND X<117 AND Y>27 AND Y<40 THEN SIR=1 :GOTO *SIRABERU
1270 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_1
1280 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
1290 IF X>217 AND X<239 AND Y>420 AND Y<433 THEN PNO= 5:GOTO *BOTTN2
1300 IF X>258 AND X<287 AND Y>420 AND Y<433 THEN PNO=10:GOTO *BOTTN2
1310 IF X>305 AND X<336 AND Y>420 AND Y<433 THEN PNO=20:GOTO *BOTTN2
1320 IF X>353 AND X<383 AND Y>420 AND Y<433 THEN PNO=30:GOTO *BOTTN2
1330 IF X>401 AND X<432 AND Y>420 AND Y<433 THEN PNO=40:GOTO *BOTTN2
1340 GOTO 1250
1350 '
1360 '** 画面設定 **
1370 *MOZI
1380 QQN=0
1390 IF QQN=2 THEN GOTO 1640
1400 LOAD@ "E_GRAPH.TIF",(167,454)
1410 LINE (205,416)-(442,435),PSET,%4,BF
1420 CLS 4
1430 LOCATE 5, 21:COLOR 1:PRINT"問 題"
1440 LOCATE 25,22:COLOR 2:PRINT" "
1450 LOCATE 20,23:COLOR 1
1460 PRINT"今までの成績 正答数 正答率 %"
1470 IF QQN=1 THEN QQN=QQN+1:GOTO 1640
1480 '
1490 '** MAIN LOOTINE **
1500 CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
1510 '
1520 'MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
1530 '
1540 RANDOMIZE TIME
1550 NFW(0)=INT(RND*50)
1560 T=1
1570 IF CCN=PNO THEN GOTO 1730
1580 N=INT(RND*50)+1
1590 FOR J=0 TO T-1
1600 IF NFW(J)=N THEN GOTO 1580
1610 NEXT J
1620 NFW(T)=N:QQ=N
1630 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
1640 TTN=0:BN=0
1650 IF QQ=<10 THEN Q=QQ :GOTO *M0
1660 IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
1670 IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
1680 IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
1690 IF QQ>40 AND QQ=<50 THEN Q=QQ-40:GOTO *M4
1700 CCN=CCN+1:T=T+1:GOTO 1570
1710 T=T+1:GOTO 1570
1720 '
1730 IF KIRN=0 THEN 4330 ELSE 4030
1740 '
1750 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
1760 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
1770 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
1780 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
1790 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48,*A49,*A50
1800 *M5:ON Q GOTO *A51,*A52,*A53,*A54,*A55,*A56,*A57,*A58,*A59,*A60
1810 *M6:ON Q GOTO *A61,*A62,*A63,*A64,*A65,*A66,*A67,*A68
1820 '
1830 *A1 :A$="ロシア連邦" :XP=131:YP=129:GOTO *SENTAKU
1840 *A2 :A$="アメリカ合衆国" :XP=548:YP=181:GOTO *SENTAKU
1850 *A3 :A$="カナダ" :XP=556:YP=158:GOTO *SENTAKU
1860 *A4 :A$="ブラジル" :XP=597:YP=275:GOTO *SENTAKU
1870 *A5 :A$="アルゼンチン" :XP=582:YP=321:GOTO *SENTAKU
1880 *A6 :A$="チリ" :XP=561:YP=316:GOTO *SENTAKU
1890 *A7 :A$="ペル-" :XP=550:YP=275:GOTO *SENTAKU
1900 *A8 :A$="ボリビア" :XP=567:YP=284:GOTO *SENTAKU
1910 *A9 :A$="パラグアイ" :XP=586:YP=297:GOTO *SENTAKU
1920 *A10:A$="コロンビア" :XP=552:YP=246:GOTO *SENTAKU
1930 *A11:A$="ベネズエラ" :XP=570:YP=239:GOTO *SENTAKU
1940 *A12:A$="メキシコ" :XP=508:YP=217:GOTO *SENTAKU
1950 *A13:A$="朝鮮民主主義人民共和国":XP=280:YP=179:GOTO *SENTAKU
1960 *A14:A$="大韓民国" :XP=280:YP=185:GOTO *SENTAKU
1970 *A15:A$="中華人民共和国" :XP=264:YP=174:GOTO *SENTAKU
1980 *A16:A$="日本" :XP=301:YP=187:GOTO *SENTAKU
1990 *A17:A$="フィリピン" :XP=272:YP=231:GOTO *SENTAKU
2000 *A18:A$="オ-ストラリア" :XP=318:YP=321:GOTO *SENTAKU
2010 *A19:A$="インドネシア" :XP=243:YP=267:GOTO *SENTAKU
2020 *A20:A$="ベトナム" :XP=245:YP=218:GOTO *SENTAKU
2030 *A21:A$="サウジアラビア" :XP=138:YP=210:GOTO *SENTAKU
2040 *A22:A$="タイ" :XP=239:YP=231:GOTO *SENTAKU
2050 *A23:A$="ミャンマ-" :XP=233:YP=229:GOTO *SENTAKU
2060 *A24:A$="インド" :XP=195:YP=207:GOTO *SENTAKU
2070 *A25:A$="パキスタン" :XP=189:YP=193:GOTO *SENTAKU
2080 *A26:A$="アフガニスタン" :XP=180:YP=188:GOTO *SENTAKU
2090 *A27:A$="イラン" :XP=149:YP=189:GOTO *SENTAKU
2100 *A28:A$="フィンランド" :XP=100:YP=116:GOTO *SENTAKU
2110 *A29:A$="スエ-デン" :XP=88 :YP=122:GOTO *SENTAKU
2120 *A30:A$="ノルウエ-" :XP=74 :YP=118:GOTO *SENTAKU
2130 *A31:A$="イギリス" :XP=56 :YP=145:GOTO *SENTAKU
2140 *A32:A$="ドイツ" :XP=78 :YP=146:GOTO *SENTAKU
2150 *A33:A$="フランス" :XP=61 :YP=156:GOTO *SENTAKU
2160 *A34:A$="スペイン" :XP=57 :YP=175:GOTO *SENTAKU
2170 *A35:A$="ポルトガル" :XP=43 :YP=180:GOTO *SENTAKU
2180 *A36:A$="イタリア" :XP=83 :YP=174:GOTO *SENTAKU
2190 *A37:A$="ギリシア" :XP=99 :YP=181:GOTO *SENTAKU
2200 *A38:A$="ポ-ランド" :XP=94 :YP=143:GOTO *SENTAKU
2210 *A39:A$="ル-マニア" :XP=103:YP=164:GOTO *SENTAKU
2220 *A40:A$="アイスランド" :XP=20 :YP=103:GOTO *SENTAKU
2230 *A41:A$="エジプト" :XP=112:YP=199:GOTO *SENTAKU
2240 *A42:A$="エチオピア" :XP=126:YP=240:GOTO *SENTAKU
2250 *A43:A$="南アフリカ連邦" :XP=108:YP=307:GOTO *SENTAKU
2260 *A44:A$="リビア" :XP=82 :YP=197:GOTO *SENTAKU
2270 *A45:A$="アルジェリア" :XP=63 :YP=188:GOTO *SENTAKU
2280 *A46:A$="モロッコ" :XP=48 :YP=193:GOTO *SENTAKU
2290 *A47:A$="ナミビア" :XP=88 :YP=297:GOTO *SENTAKU
2300 *A48:A$="モンゴル" :XP=243:YP=156:GOTO *SENTAKU
2310 *A49:A$="モ-リタニア" :XP=32 :YP=220:GOTO *SENTAKU
2320 *A50:A$="ス-ダン" :XP=114:YP=228:GOTO *SENTAKU
2330 *A51:A$="エクアドル" :GOTO *SENTAKU
2340 *A52:A$="キルギスタン" :GOTO *SENTAKU
2350 *A53:A$="カザフスタン" :GOTO *SENTAKU
2360 *A54:A$="トルクメニスタン" :GOTO *SENTAKU
2370 *A55:A$="マダガスカル" :GOTO *SENTAKU
2380 *A56:A$="モザンビーク" :GOTO *SENTAKU
2390 *A57:A$="ジンバブエ" :GOTO *SENTAKU
2400 *A58:A$="ボツワナ" :GOTO *SENTAKU
2410 *A59:A$="ザンビア" :GOTO *SENTAKU
2420 *A60:A$="タンザニア" :GOTO *SENTAKU
2430 *A61:A$="ケニア" :GOTO *SENTAKU
2440 *A62:A$="ソマリア" :GOTO *SENTAKU
2450 *A63:A$="アンゴラ" :GOTO *SENTAKU
2460 *A64:A$="ザイール" :GOTO *SENTAKU
2470 *A65:A$="チャド" :GOTO *SENTAKU
2480 *A66:A$="ナイジェリア" :GOTO *SENTAKU
2490 *A67:A$="ニジェール" :GOTO *SENTAKU
2500 *A68:A$="マリ" :GOTO *SENTAKU
2510 *SENTAKU
2520 IF TTN=0 THEN GOTO *WRITE
2530 IF TTN=1 THEN GOTO *WRITE_NO
2540 IF TTN=2 THEN GOTO *SIRABE_WRITE
2550 '
2560 *WRITE
2570 LOCATE 14,21:COLOR 2:PRINT " "
2580 LOCATE 14,21:COLOR 2:PRINT A$
2590 GOTO 2630
2600 '
2610 *POINT
2620 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,8,8,611,364:GOTO 2650
2630 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
2640 B=1
2650 X=MOUSE(4,0):Y=MOUSE(5,0)
2660 IF X>93 AND X<117 AND Y>27 AND Y<40 THEN GOTO *SIRABERU
2670 IF X>125 AND X<147 AND Y>27 AND Y<40 THEN GOTO *MODORU
2680 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
2690 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
2700 IF X>129 AND X<134 AND Y>127 AND Y<132 THEN TT=1 :GOTO *BUNKI '1
2710 IF X>546 AND X<551 AND Y>179 AND Y<183 THEN TT=2 :GOTO *BUNKI '2
2720 IF X>554 AND X<559 AND Y>156 AND Y<161 THEN TT=3 :GOTO *BUNKI '3
2730 IF X>595 AND X<600 AND Y>273 AND Y<278 THEN TT=4 :GOTO *BUNKI '4
2740 IF X>580 AND X<585 AND Y>319 AND Y<324 THEN TT=5 :GOTO *BUNKI '5
2750 IF X>559 AND X<564 AND Y>314 AND Y<319 THEN TT=6 :GOTO *BUNKI '6
2760 IF X>548 AND X<553 AND Y>273 AND Y<278 THEN TT=7 :GOTO *BUNKI '7
2770 IF X>565 AND X<570 AND Y>282 AND Y<287 THEN TT=8 :GOTO *BUNKI '8
2780 IF X>584 AND X<589 AND Y>295 AND Y<300 THEN TT=9 :GOTO *BUNKI '9
2790 IF X>550 AND X<555 AND Y>244 AND Y<249 THEN TT=10:GOTO *BUNKI '10
2800 IF X>568 AND X<573 AND Y>237 AND Y<242 THEN TT=11:GOTO *BUNKI '11
2810 IF X>506 AND X<511 AND Y>215 AND Y<220 THEN TT=12:GOTO *BUNKI '12
2820 IF X>278 AND X<283 AND Y>177 AND Y<182 THEN TT=13:GOTO *BUNKI '13
2830 IF X>278 AND X<283 AND Y>183 AND Y<188 THEN TT=14:GOTO *BUNKI '14
2840 IF X>262 AND X<267 AND Y>172 AND Y<177 THEN TT=15:GOTO *BUNKI '15
2850 IF X>299 AND X<304 AND Y>185 AND Y<190 THEN TT=16:GOTO *BUNKI '16
2860 IF X>270 AND X<275 AND Y>229 AND Y<234 THEN TT=17:GOTO *BUNKI '17
2870 IF X>316 AND X<321 AND Y>319 AND Y<323 THEN TT=18:GOTO *BUNKI '18
2880 IF X>241 AND X<246 AND Y>265 AND Y<270 THEN TT=19:GOTO *BUNKI '19
2890 IF X>243 AND X<248 AND Y>216 AND Y<221 THEN TT=20:GOTO *BUNKI '20
2900 IF X>136 AND X<141 AND Y>208 AND Y<213 THEN TT=21:GOTO *BUNKI '21
2910 IF X>237 AND X<242 AND Y>229 AND Y<234 THEN TT=22:GOTO *BUNKI '22
2920 IF X>231 AND X<236 AND Y>227 AND Y<232 THEN TT=23:GOTO *BUNKI '23
2930 IF X>193 AND X<198 AND Y>205 AND Y<210 THEN TT=24:GOTO *BUNKI '24
2940 IF X>187 AND X<192 AND Y>191 AND Y<196 THEN TT=25:GOTO *BUNKI '25
2950 IF X>178 AND X<183 AND Y>186 AND Y<191 THEN TT=26:GOTO *BUNKI '26
2960 IF X>147 AND X<152 AND Y>187 AND Y<192 THEN TT=27:GOTO *BUNKI '27
2970 IF X>98 AND X<103 AND Y>114 AND Y<119 THEN TT=28:GOTO *BUNKI '28
2980 IF X>86 AND X<91 AND Y>120 AND Y<125 THEN TT=29:GOTO *BUNKI '29
2990 IF X>72 AND X<77 AND Y>116 AND Y<121 THEN TT=30:GOTO *BUNKI '30
3000 IF X>54 AND X<59 AND Y>143 AND Y<148 THEN TT=31:GOTO *BUNKI '31
3010 IF X>76 AND X<81 AND Y>144 AND Y<149 THEN TT=32:GOTO *BUNKI '32
3020 IF X>59 AND X<64 AND Y>154 AND Y<159 THEN TT=33:GOTO *BUNKI '33
3030 IF X>52 AND X<60 AND Y>172 AND Y<178 THEN TT=34:GOTO *BUNKI '34
3040 IF X>41 AND X<46 AND Y>178 AND Y<183 THEN TT=35:GOTO *BUNKI '35
3050 IF X>81 AND X<86 AND Y>172 AND Y<177 THEN TT=36:GOTO *BUNKI '36
3060 IF X>97 AND X<102 AND Y>179 AND Y<184 THEN TT=37:GOTO *BUNKI '37
3070 IF X>92 AND X<97 AND Y>141 AND Y<146 THEN TT=38:GOTO *BUNKI '38
3080 IF X>101 AND X<106 AND Y>162 AND Y<167 THEN TT=39:GOTO *BUNKI '39
3090 IF X>18 AND X<23 AND Y>101 AND Y<106 THEN TT=40:GOTO *BUNKI '40
3100 IF X>110 AND X<115 AND Y>197 AND Y<203 THEN TT=41:GOTO *BUNKI '41
3110 IF X>124 AND X<129 AND Y>238 AND Y<243 THEN TT=42:GOTO *BUNKI '42
3120 IF X>106 AND X<111 AND Y>305 AND Y<310 THEN TT=43:GOTO *BUNKI '43
3130 IF X>80 AND X<85 AND Y>195 AND Y<200 THEN TT=44:GOTO *BUNKI '44
3140 IF X>61 AND X<66 AND Y>186 AND Y<191 THEN TT=45:GOTO *BUNKI '45
3150 IF X>46 AND X<51 AND Y>191 AND Y<196 THEN TT=46:GOTO *BUNKI '46
3160 IF X>86 AND X<91 AND Y>295 AND Y<300 THEN TT=47:GOTO *BUNKI '47
3170 IF X>241 AND X<246 AND Y>154 AND Y<159 THEN TT=48:GOTO *BUNKI '48
3180 IF X>30 AND X<35 AND Y>218 AND Y<223 THEN TT=49:GOTO *BUNKI '49
3190 IF X>112 AND X<117 AND Y>226 AND Y<231 THEN TT=50:GOTO *BUNKI '50
3200 IF X>546 AND X<551 AND Y>253 AND Y<258 THEN TT=51:GOTO *BUNKI '1
3210 IF X>191 AND X<196 AND Y>166 AND Y<171 THEN TT=52:GOTO *BUNKI '2
3220 IF X>197 AND X<202 AND Y>156 AND Y<161 THEN TT=53:GOTO *BUNKI '3
3230 IF X>161 AND X<166 AND Y>183 AND Y<188 THEN TT=54:GOTO *BUNKI '4
3240 IF X>140 AND X<145 AND Y>290 AND Y<295 THEN TT=55:GOTO *BUNKI '5
3250 IF X>118 AND X<123 AND Y>298 AND Y<303 THEN TT=56:GOTO *BUNKI '6
3260 IF X>111 AND X<116 AND Y>289 AND Y<294 THEN TT=57:GOTO *BUNKI '7
3270 IF X>100 AND X<105 AND Y>298 AND Y<303 THEN TT=58:GOTO *BUNKI '8
3280 IF X>106 AND X<111 AND Y>283 AND Y<288 THEN TT=59:GOTO *BUNKI '9
3290 IF X>123 AND X<128 AND Y>270 AND Y<275 THEN TT=60:GOTO *BUNKI '10
3300 IF X>123 AND X<128 AND Y>256 AND Y<261 THEN TT=61:GOTO *BUNKI '11
3310 IF X>139 AND X<144 AND Y>251 AND Y<256 THEN TT=62:GOTO *BUNKI '12
3320 IF X>83 AND X<88 AND Y>273 AND Y<278 THEN TT=63:GOTO *BUNKI '13
3330 IF X>89 AND X<94 AND Y>262 AND Y<267 THEN TT=64:GOTO *BUNKI '14
3340 IF X>86 AND X<91 AND Y>231 AND Y<236 THEN TT=65:GOTO *BUNKI '15
3350 IF X>71 AND X<76 AND Y>236 AND Y<241 THEN TT=66:GOTO *BUNKI '16
3360 IF X>64 AND X<69 AND Y>226 AND Y<231 THEN TT=67:GOTO *BUNKI '17
3370 IF X>44 AND X<49 AND Y>227 AND Y<232 THEN TT=68:GOTO *BUNKI '18
3380 IF B=1 THEN 3390 ELSE 2650
3390 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
3400 B=B+1
3410 GOTO 2650
3420 '
3430 *BUNKI
3440 IF BN=0 THEN *QUIZ ELSE *SIRABE
3450 *QUIZ
3460 IF QQ=TT THEN *YES ELSE *NO
3470 *SIRABE
3480 TTN=2:GOTO *CHECK
3490 '
3500 *YES
3510 CY=CY+1
3520 LOCATE 15,22:COLOR 3: PRINT"★★★ 正解です。 ★★★"
3530 PCMPLAY YES_S%,120
3540 GOSUB *COUNT
3550 WAIT 100
3560 WAIT 100
3570 LOCATE 15,22:COLOR 1:PRINT" "
3580 IF QQN=2 THEN GOTO 4270
3590 GOTO 1700
3600 '
3610 *NO
3620 CN=CN+1:TTN=1
3630 PCMPLAY NO_S%,120
3640 XPP=XP:YPP=YP
3650 *CHECK
3660 IF TT=<10 THEN Q=TT :GOTO *M0
3670 IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
3680 IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
3690 IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
3700 IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
3710 IF TT>50 AND TT=<60 THEN Q=TT-50:GOTO *M5
3720 IF TT>60 AND TT=<70 THEN Q=TT-60:GOTO *M6
3730 *WRITE_NO
3740 LOCATE 10,22:COLOR 3
3750 PRINT"★★★ 残念でした。 ★★★ そこは 『";A$;"』 です。"
3760 GOSUB *COUNT
3770 IF QQN=0 THEN GOSUB *KIROKU
3780 WAIT 70
3790 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3800 WAIT 250
3810 CIRCLE (XPP,YPP),6,5,,,,F,XOR
3820 LOCATE 10,22:PRINT SPACE$(60)
3830 IF QQN=2 THEN GOTO 4270
3840 GOTO 1700
3850 '
3860 *COUNT
3870 CT=CY+CN
3880 CC=INT((CY/CT)*100)
3890 CG=INT(CC*3):IF CG>297 THEN CG=297
3900 LOCATE 44,23:PRINT " "
3910 LOCATE 70,23:PRINT " "
3920 LOCATE 44,23:COLOR 3:PRINT "(";CY;"/";CT;") "
3930 LOCATE 70,23:COLOR 3:PRINT CC
3940 LINE (280, 457)-(578, 461),PSET,%4,BF
3950 LINE (280, 457)-(281+CG,461),PSET,%3,BF
3960 LINE (280+CG,457)-(578, 461),PSET,%4,BF
3970 RETURN
3980 '
3990 *KIROKU
4000 KIR(KIRN)=QQ:KIRN=KIRN+1
4010 RETURN
4020 '
4030 '** 確認 選択 **
4040 LOCATE 5,21 :COLOR 2:PRINT"あなたの正解は、";PNO;"問中";CY;"問です。"
4050 LOCATE 21,22 :COLOR 1:PRINT CN;"問まちがいました。"
4060 WAIT 300
4070 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(167,454)
4080 LOCATE 10,21 :COLOR 2:PRINT"間違いを確かめますか?"
4090 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
4100 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
4110 BX=198:BY=418:BXL=106:BYL=16:GOSUB *BOTTN1
4120 BX=198:BY=437:BXL=106:BYL=16:GOSUB *BOTTN1
4130 LOCATE 20,22 :COLOR 1:PRINT" 確かめます。"
4140 LOCATE 20,23 :COLOR 1:PRINT" 確かめません。"
4150 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1:IKISAKI=2
4160 X=MOUSE(4,0):Y=MOUSE(5,0)
4170 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
4180 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
4190 IF Y>418 AND Y<432 THEN BY=418:IKISAKI=2:GOTO *BOTTN3
4200 IF Y>438 AND Y<453 THEN BY=437:IKISAKI=3:GOTO *BOTTN3
4210 GOTO 4160
4220 '
4230 *KAKUNIN_ROOTINE
4240 PNO=KIRN-1:QQN=1:CY=0:CN=0
4250 FOR J=0 TO PNO
4260 QQ=KIR(J):GOTO 1390
4270 NEXT J
4280 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(167,454)
4290 LOCATE 10,21 :COLOR 2:PRINT"もう一度、間違いを確かめますか?"
4300 GOTO 4110
4310 '
4320 *TUZUKE
4330 LOAD@ "E_CLEAR.TIF",(167,454)
4340 CLS 4:ERASE KIR:ERASE NFW:ERASE XS
4350 LOCATE 10,21 :COLOR 2:PRINT"続けますか?"
4360 BX=198:BY=418:BXL=106:BYL=16:GOSUB *BOTTN1
4370 BX=198:BY=437:BXL=106:BYL=16:GOSUB *BOTTN1
4380 LOCATE 20,22 :COLOR 1:PRINT" 続けます。"
4390 LOCATE 20,23 :COLOR 1:PRINT" 終わります。"
4400 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4410 X=MOUSE(4,0):Y=MOUSE(5,0)
4420 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
4430 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
4440 IF Y>418 AND Y<432 THEN BY=418:IKISAKI=4:GOTO *BOTTN3
4450 IF Y>438 AND Y<453 THEN BY=437:IKISAKI=5:GOTO *BOTTN3
4460 GOTO 4410
4470 '
4480 IF MENU=1 THEN 4510 ELSE 4720
4490 '
4500 *OWARI
4510 CLS 4
4520 LOCATE 10,21 :COLOR 2:PRINT"メニュ-に戻りますか?"
4530 BX=198:BY=418:BXL=220:BYL=16:GOSUB *BOTTN1
4540 BY=437:GOSUB *BOTTN1
4550 LOCATE 20,22 :COLOR 1:PRINT" メニュ-に戻ります。"
4560 LOCATE 20,23 :COLOR 1:PRINT" メニュ-に戻らず終わります。"
4570 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
4580 X=MOUSE(4,0):Y=MOUSE(5,0)
4590 IF X>18 AND X<38 AND Y>18 AND Y<38 THEN GOTO *MENU_E
4600 IF X>51 AND X<71 AND Y>18 AND Y<38 THEN GOTO *OWARI_E
4610 IF Y>418 AND Y<432 THEN BY=418:IKISAKI=6:GOTO *BOTTN3
4620 IF Y>438 AND Y<453 THEN BY=437:IKISAKI=7:GOTO *BOTTN3
4630 GOTO 4580
4640 '
4650 *MENU_E
4660 ERASE KIR:ERASE NFW:ERASE XS
4670 *MENU_1
4680 CHAIN "B_MENU2.BAS",,ALL
4690 RUN "B_MENU2.BAS"
4700 '
4710 *OWARI_E
4720 CHAIN "B_END.BAS",,ALL
4730 RUN "B_END.BAS"
4740 '
4750 *SETTEI '** 音声読み込み ROOTINE **
4760 '
4770 DIM NO_S% (23015)
4780 DIM YES_S% (22706)
4790 '
4800 LOAD@ "NO_S.SND", NO_S%
4810 LOAD@ "YES_S.SND", YES_S%
4820 '
4830 RETURN
4840 '
4850 END
4860 '
4870 *BOTTN
4880 DIM XS(4):BXL=36:BY=417:BYL=18:COL=7
4890 RESTORE 4930
4900 FOR S=0 TO 4
4910 READ XS(S)
4920 NEXT
4930 DATA 206,254,302,350,398
4940 FOR S=0 TO 4
4950 BX=XS(S)
4960 GOSUB *BOTTN1
4970 NEXT
4980 RETURN
4990 '
5000 *BOTTN1
5010 LINE(BX,BY)-(BX+BXL,BY+BYL),PSET,5,BF
5020 FOR SI = 0 TO 2
5030 LINE(BX+SI, BY+SI)-(BX+BXL-SI, BY+SI), PSET, 7
5040 LINE(BX+SI, BY+SI)-(BX+SI, BY+BYL-SI), PSET, 7
5050 LINE(BX+SI, BY+BYL-SI)-(BX+BXL-SI, BY+BYL-SI), PSET,1
5060 LINE(BX+BXL-SI, BY+SI)-(BX+BXL-SI, BY+BYL-SI), PSET,1
5070 NEXT
5080 RETURN
5090 '
5100 *BOTTN2
5110 BXL=36:BY=417:BYL=18
5120 IF PNO=5 THEN BX=206:GOTO 5180
5130 IF PNO=10 THEN BX=254:GOTO 5180
5140 IF PNO=20 THEN BX=302:GOTO 5180
5150 IF PNO=30 THEN BX=350:GOTO 5180
5160 IF PNO=40 THEN BX=398:GOTO 5180
5170 *BOTTN3
5180 FOR SI = 0 TO 2
5190 LINE(BX+SI, BY+SI)-(BX+BXL-SI, BY+SI), PSET,1
5200 LINE(BX+SI, BY+SI)-(BX+SI, BY+BYL-SI), PSET,1
5210 LINE(BX+SI, BY+BYL-SI)-(BX+BXL-SI, BY+BYL-SI),PSET,7
5220 LINE(BX+BXL-SI, BY+SI)-(BX+BXL-SI, BY+BYL-SI),PSET,7
5230 NEXT
5240 WAIT 75
5250 LINE(196,415)-(451,455),PSET,%4,BF:CLS 4
5260 ON IKISAKI GOTO *MOZI,*KAKUNIN_ROOTINE,*TUZUKE,*MENU_GAMEN,*OWARI,*MENU_1,*OWARI_E
5270 '
5280 *MOUS
5290 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
5300 X=MOUSE(4,0):Y=MOUSE(5,0)
5310 LOCATE 55,22:PRINT X;Y
5320 GOTO 5300
5330 '
5340 *SIRABERU
5350 IF SIR=1 THEN GOTO 5390
5360 LOCATE 14,21:PRINT " "
5370 LOCATE 14,21:COLOR 3:PRINT "クイズ中断中, 調べモードです。"
5380 GOTO 5420
5390 LINE(199,415)-(437,437),PSET,%4,BF:LOCATE 24,23:PRINT SPACE$(55)
5400 LOCATE 24,21:PRINT " "
5410 LOCATE 24,21:COLOR 3:PRINT "クイズ中断中, 調べモードです。"
5420 LOCATE 24,22:PRINT SPACE$(50)
5430 BN=1:GOTO *POINT
5440 '
5450 *SIRABE_WRITE
5460 LOCATE 15,22:COLOR 3:PRINT SPACE$(55)
5470 FOR T=5 TO 2 STEP -1
5480 LOCATE 15,22:COLOR T:PRINT"そこは 『";A$;"』 です。"
5490 WAIT 25
5500 NEXT
5510 WAIT 50:GOTO *POINT
5520 '
5530 *MODORU
5540 IF SIR=1 THEN ERASE XS:GOTO *MENU_GAMEN'
5550 LOCATE 24,21:PRINT " "
5560 LOCATE 15,22:PRINT SPACE$(50)
5570 GOTO 1710'
5580 '